10 REM COPYRIGHT 1989 COMPUTE! PUBLICATIONS, INC. -- ALL RIGHTS RESERVED
20 PRINT"[147][194]UILDING [212]URBO [198]ORMAT...[208]LEASE [215]AIT"
30 PRINT""TAB(13)"[195]OPYRIGHT 1989"
40 PRINTTAB(7)"[195][207][205][208][213][212][197]! [208]UBLICATIONS, [201]NC.":PRINTTAB(10)"[193]LL RIGHTS RESERVED."
50 OPEN15,8,15:OPEN2,8,2,"0:TURBO FORMAT,P,R"
60 INPUT#15,A$,B$,C$,D$:IFVAL(A$)>0THENPRINTA$,B$,C$,D$:CLOSE2,15:END
70 PRINT#15,"M-R"CHR$(24)CHR$(0)CHR$(2)
80 GET#15,T$:T=ASC(T$+CHR$(0))
90 GET#15,S$:S=ASC(S$+CHR$(0))
100 PRINT#15,"M-R"CHR$(97)CHR$(2)
110 GET#15,D$:D=ASC(D$+CHR$(0))
120 PRINT#15,"M-R"CHR$(103)CHR$(2)
130 GET#15,I$:I=ASC(I$+CHR$(0))
140 OPEN3,8,3,"#"
150 PRINT#15,"U1";3;0;T;S
160 GET#3,TP$:TP=ASC(TP$+CHR$(0))
170 GET#3,SP$:SP=ASC(SP$+CHR$(0))
180 PRINT#15,"B-P";3;0
190 PRINT#3,CHR$(0);CHR$(255);
200 PRINT#15,"U2";3;0;T;S:CLOSE2:CLOSE3
210 OPEN2,8,2,"#"
220 PRINT#15,"U1";2;0;18;D
230 PRINT#15,"B-P";2;I
240 PRINT#2,CHR$(131);CHR$(TP);CHR$(SP);CHR$(71);CHR$(101);CHR$(111);CHR$(115);
250 PRINT#2,CHR$(84);CHR$(117);CHR$(114);CHR$(98);CHR$(111);CHR$(70);CHR$(111);
260 PRINT#2,CHR$(114);CHR$(109);CHR$(97);CHR$(116);
270 PRINT#15,"B-P";2;I+19
280 PRINT#2,CHR$(T);CHR$(S);CHR$(0);CHR$(6);
290 PRINT#15,"U2";2;0;18;D
300 CLOSE2:CLOSE3:CLOSE15